/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / COMAL-TUTOR-1.ARC / LESSON FOURTEEN

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| b3 11 08 12 87 12 00 0a | 1f 00 20 44 45 4c 45 54 |........|.. DELET|
|00000010| 45 20 22 30 3a 4c 45 53 | 53 4f 4e 20 46 4f 55 52 |E "0:LES|SON FOUR|
|00000020| 54 45 45 4e 22 00 14 16 | 00 20 53 48 49 47 4c 45 |TEEN"...|. SHIGLE|
|00000030| 59 20 54 55 54 4f 52 49 | 41 4c 53 00 1e 1f 00 20 |Y TUTORI|ALS.... |
|00000040| 53 41 56 45 20 20 20 22 | 30 3a 4c 45 53 53 4f 4e |SAVE   "|0:LESSON|
|00000050| 20 46 4f 55 52 54 45 45 | 4e 22 00 28 06 7f 01 81 | FOURTEE|N".(....|
|00000060| 00 32 06 7f 02 81 00 3c | 06 7f 03 81 00 46 06 7f |.2.....<|.....F..|
|00000070| 04 81 00 50 06 7f 05 81 | 00 5a 06 7f 06 81 00 64 |...P....|.Z.....d|
|00000080| 06 7f 07 81 00 6e 06 7f | 0e 81 00 78 04 00 00 82 |.....n..|...x....|
|00000090| 09 70 01 44 8a 00 7b 00 | 8c 0b 5f 02 00 8e 4b 65 |.p.D..{.|.._...Ke|
|000000a0| 60 61 00 96 0c 8c 8f 08 | 00 02 00 0a 93 c5 00 a0 |`a......|........|
|000000b0| 06 7f 09 81 00 aa 0a ff | 1e 02 00 0c ff 1f 00 b4 |........|........|
|000000c0| 12 5f 03 09 4c 45 53 53 | 4f 4e 20 31 34 65 60 61 |._..LESS|ON 14e`a|
|000000d0| 00 be 23 5f 03 1a 50 52 | 4f 43 45 44 55 52 45 53 |..#_..PR|OCEDURES|
|000000e0| 20 57 49 54 48 20 50 41 | 52 41 4d 45 54 45 52 53 | WITH PA|RAMETERS|
|000000f0| 65 60 61 00 c8 06 7f 0a | 81 00 d2 05 7d 01 00 dc |e`a.....|....}...|
|00000100| 04 00 00 e6 09 70 09 61 | 8a 00 7b 00 f0 0b 5f 02 |.....p.a|..{..._.|
|00000110| 00 93 4b 65 66 61 00 fa | 05 7d 09 01 04 04 00 01 |..Kefa..|.}......|
|00000120| 0e 09 70 0a ed 8a 00 7c | 01 18 06 5f 60 61 01 22 |..p....||..._`a."|
|00000130| 09 07 0d 02 02 8d 3a 01 | 2c 0b 97 04 0d d8 37 98 |......:.|,.....7.|
|00000140| b8 8a 01 36 16 5f 03 0d | 1c 50 52 45 53 53 20 53 |...6._..|.PRESS S|
|00000150| 48 49 46 54 91 65 60 61 | 01 40 15 5f 03 0c 20 20 |HIFT.e`a|.@._..  |
|00000160| 20 20 20 20 20 20 20 20 | 20 91 65 60 61 01 4a 06 |        | .e`a.J.|
|00000170| 9b 82 8a 01 54 0a ff 1e | 02 00 0c ff 1f 01 5e 12 |....T...|......^.|
|00000180| 82 0c 10 00 02 00 01 84 | 02 01 2c 85 88 f4 89 01 |........|..,.....|
|00000190| 68 06 7f 09 81 01 72 0d | 97 f9 02 00 00 4b 31 99 |h.....r.|.....K1.|
|000001a0| f4 9a 01 7c 05 7d 0a 01 | 86 04 00 01 90 09 70 0e |...|.}..|......p.|
|000001b0| 0b 8b 00 7b 01 9a 0c d2 | 03 04 4d 45 4e 55 d4 d3 |...{....|..MENU..|
|000001c0| 01 a4 05 7d 0e 01 ae 04 | 00 01 b8 09 70 02 fd 8c |...}....|....p...|
|000001d0| 00 7b 01 c2 2d 5f 03 24 | 49 54 20 57 4f 55 4c 44 |.{..-_.$|IT WOULD|
|000001e0| 20 42 45 20 41 20 57 41 | 53 54 45 20 4f 46 20 54 | BE A WA|STE OF T|
|000001f0| 49 4d 45 20 54 4f 20 57 | 52 49 54 45 65 60 61 01 |IME TO W|RITEe`a.|
|00000200| cc 32 5f 03 29 11 41 20 | 53 45 50 41 52 41 54 45 |.2_.).A |SEPARATE|
|00000210| 20 50 52 4f 43 45 44 55 | 52 45 20 45 41 43 48 20 | PROCEDU|RE EACH |
|00000220| 54 49 4d 45 20 57 45 20 | 57 41 4e 54 45 44 65 60 |TIME WE |WANTEDe`|
|00000230| 61 01 d6 30 5f 03 27 54 | 48 45 20 53 41 4d 45 20 |a..0_.'T|HE SAME |
|00000240| 4a 4f 42 20 44 4f 4e 45 | 20 4f 4e 20 41 20 44 49 |JOB DONE| ON A DI|
|00000250| 46 46 45 52 45 4e 54 20 | 56 41 4c 55 45 2e 65 60 |FFERENT |VALUE.e`|
|00000260| 61 01 e0 2f 5f 03 26 11 | 41 53 20 59 4f 55 20 4d |a../_.&.|AS YOU M|
|00000270| 41 59 20 48 41 56 45 20 | 53 55 53 50 45 43 54 45 |AY HAVE |SUSPECTE|
|00000280| 44 2c 20 54 48 45 52 45 | 20 49 53 20 41 65 60 61 |D, THERE| IS Ae`a|
|00000290| 01 ea 31 5f 03 28 11 57 | 41 59 20 41 52 4f 55 4e |..1_.(.W|AY AROUN|
|000002a0| 44 20 54 48 49 53 2d 2d | 41 20 57 41 59 20 54 4f |D THIS--|A WAY TO|
|000002b0| 20 27 50 41 53 53 27 20 | 56 41 4c 55 45 53 65 60 | 'PASS' |VALUESe`|
|000002c0| 61 01 f4 31 5f 03 28 11 | 46 52 4f 4d 20 54 48 45 |a..1_.(.|FROM THE|
|000002d0| 20 4d 41 49 4e 20 50 52 | 4f 47 52 41 4d 20 54 4f | MAIN PR|OGRAM TO|
|000002e0| 20 54 48 45 20 50 52 4f | 43 45 44 55 52 45 2e 65 | THE PRO|CEDURE.e|
|000002f0| 60 61 01 fe 2e 5f 03 25 | 11 54 48 45 20 53 45 43 |`a..._.%|.THE SEC|
|00000300| 52 45 54 20 4c 49 45 53 | 20 49 4e 20 4d 41 4b 49 |RET LIES| IN MAKI|
|00000310| 4e 47 20 41 20 56 41 52 | 49 41 42 4c 45 65 60 61 |NG A VAR|IABLEe`a|
|00000320| 02 08 2f 5f 03 26 11 46 | 52 4f 4d 20 54 48 45 20 |../_.&.F|ROM THE |
|00000330| 4d 41 49 4e 20 50 52 4f | 47 52 41 4d 20 42 45 20 |MAIN PRO|GRAM BE |
|00000340| 4f 4e 45 20 54 48 41 54 | 20 54 48 45 65 60 61 02 |ONE THAT| THEe`a.|
|00000350| 12 2c 5f 03 23 11 54 48 | 45 20 50 52 4f 43 45 44 |.,_.#.TH|E PROCED|
|00000360| 55 52 45 20 41 4c 53 4f | 20 55 53 45 53 2e 20 20 |URE ALSO| USES.  |
|00000370| 41 47 41 49 4e 2c 20 41 | 65 60 61 02 1c 31 5f 03 |AGAIN, A|e`a..1_.|
|00000380| 28 11 4c 49 56 45 20 50 | 52 4f 47 52 41 4d 20 49 |(.LIVE P|ROGRAM I|
|00000390| 53 20 57 4f 52 54 48 20 | 41 20 54 48 4f 55 53 41 |S WORTH |A THOUSA|
|000003a0| 4e 44 20 57 4f 52 44 53 | 2e 65 60 61 02 26 06 7f |ND WORDS|.e`a.&..|
|000003b0| 0a 81 02 30 05 7d 02 02 | 3a 04 00 02 44 09 70 03 |...0.}..|:...D.p.|
|000003c0| 82 90 00 7b 02 4e 2f 5f | 03 26 4c 4f 4f 4b 20 41 |...{.N/_|.&LOOK A|
|000003d0| 54 20 54 48 49 53 20 42 | 45 47 49 4e 4e 49 4e 47 |T THIS B|EGINNING|
|000003e0| 20 4f 46 20 41 20 50 52 | 4f 43 45 44 55 52 45 2e | OF A PR|OCEDURE.|
|000003f0| 65 60 61 02 58 06 5f 60 | 61 02 62 0a ff 1e 02 00 |e`a.X._`|a.b.....|
|00000400| 0e ff 1f 02 6c 2e 5f 03 | 25 11 50 52 4f 43 20 44 |....l._.|%.PROC D|
|00000410| 52 41 57 27 42 41 52 28 | 4c 45 4e 47 54 48 2c 42 |RAW'BAR(|LENGTH,B|
|00000420| 41 52 27 43 48 41 52 41 | 43 54 45 52 24 29 65 60 |AR'CHARA|CTER$)e`|
|00000430| 61 02 76 06 5f 60 61 02 | 80 0a ff 1e 02 00 0c ff |a.v._`a.|........|
|00000440| 1f 02 8a 2b 5f 03 22 11 | 49 54 20 4d 45 41 4e 53 |...+_.".|IT MEANS|
|00000450| 20 54 48 41 54 20 54 48 | 49 53 20 50 52 4f 43 45 | THAT TH|IS PROCE|
|00000460| 44 55 52 45 20 57 49 4c | 4c 65 60 61 02 94 2e 5f |DURE WIL|Le`a..._|
|00000470| 03 25 11 55 53 45 20 41 | 20 56 41 52 49 41 42 4c |.%.USE A| VARIABL|
|00000480| 45 20 54 48 41 54 20 54 | 48 45 20 4d 41 49 4e 20 |E THAT T|HE MAIN |
|00000490| 50 52 4f 47 52 41 4d 65 | 60 61 02 9e 2d 5f 03 24 |PROGRAMe|`a..-_.$|
|000004a0| 11 48 41 53 20 41 4c 52 | 45 41 44 59 20 46 49 4c |.HAS ALR|EADY FIL|
|000004b0| 4c 45 44 20 57 49 54 48 | 20 53 4f 4d 45 20 56 41 |LED WITH| SOME VA|
|000004c0| 4c 55 45 2e 65 60 61 02 | a8 2d 5f 03 24 11 45 41 |LUE.e`a.|.-_.$.EA|
|000004d0| 43 48 20 54 49 4d 45 20 | 54 48 49 53 20 50 52 4f |CH TIME |THIS PRO|
|000004e0| 43 45 44 55 52 45 20 49 | 53 20 43 41 4c 4c 45 44 |CEDURE I|S CALLED|
|000004f0| 2c 65 60 61 02 b2 30 5f | 03 27 11 49 54 20 57 49 |,e`a..0_|.'.IT WI|
|00000500| 4c 4c 20 49 4e 43 4c 55 | 44 45 20 41 20 56 41 4c |LL INCLU|DE A VAL|
|00000510| 55 45 20 49 4e 20 50 41 | 52 45 4e 54 48 45 53 45 |UE IN PA|RENTHESE|
|00000520| 53 65 60 61 02 bc 2d 5f | 03 24 11 54 48 41 54 20 |Se`a..-_|.$.THAT |
|00000530| 54 48 45 20 50 52 4f 43 | 45 44 55 52 45 20 43 41 |THE PROC|EDURE CA|
|00000540| 4e 20 41 4c 53 4f 20 55 | 53 45 2e 2e 2e 2e 65 60 |N ALSO U|SE....e`|
|00000550| 61 02 c6 06 7f 0a 81 02 | d0 0a ff 1e 02 00 0e ff |a.......|........|
|00000560| 1f 02 da 19 5f 03 10 44 | 52 41 57 27 42 41 52 28 |...._..D|RAW'BAR(|
|00000570| 31 32 2c 22 58 22 29 65 | 60 61 02 e4 0a ff 1e 02 |12,"X")e|`a......|
|00000580| 00 0c ff 1f 02 ee 2d 5f | 03 24 11 49 53 20 41 4e |......-_|.$.IS AN|
|00000590| 20 45 58 41 4d 50 4c 45 | 20 4f 46 20 53 55 43 48 | EXAMPLE| OF SUCH|
|000005a0| 20 41 20 27 43 41 4c 4c | 27 20 46 52 4f 4d 65 60 | A 'CALL|' FROMe`|
|000005b0| 61 02 f8 30 5f 03 27 11 | 54 48 45 20 4d 41 49 4e |a..0_.'.|THE MAIN|
|000005c0| 20 50 52 4f 47 52 41 4d | 2e 20 20 48 45 52 45 20 | PROGRAM|.  HERE |
|000005d0| 49 54 20 49 53 20 47 4f | 49 4e 47 20 54 4f 65 60 |IT IS GO|ING TOe`|
|000005e0| 61 03 02 2c 5f 03 23 11 | 54 45 4c 4c 20 54 48 45 |a..,_.#.|TELL THE|
|000005f0| 20 43 4f 4d 50 55 54 45 | 52 20 54 4f 20 55 53 45 | COMPUTE|R TO USE|
|00000600| 20 31 32 20 41 53 20 54 | 48 45 65 60 61 03 0c 2f | 12 AS T|HEe`a../|
|00000610| 5f 03 26 11 4c 45 4e 47 | 54 48 20 46 4f 52 20 44 |_.&.LENG|TH FOR D|
|00000620| 52 41 57 49 4e 47 20 41 | 20 42 41 52 2c 20 41 4e |RAWING A| BAR, AN|
|00000630| 44 20 55 53 45 20 54 48 | 45 65 60 61 03 16 2f 5f |D USE TH|Ee`a../_|
|00000640| 03 26 11 4c 45 54 54 45 | 52 20 58 20 41 53 20 54 |.&.LETTE|R X AS T|
|00000650| 48 45 20 43 48 41 52 41 | 43 54 45 52 20 54 48 41 |HE CHARA|CTER THA|
|00000660| 54 20 4d 41 4b 45 53 20 | 65 60 61 03 20 20 5f 03 |T MAKES |e`a.  _.|
|00000670| 17 11 54 48 45 20 42 41 | 52 20 53 4f 20 54 48 41 |..THE BA|R SO THA|
|00000680| 54 20 57 45 20 47 45 54 | 65 60 61 03 2a 0a ff 1e |T WE GET|e`a.*...|
|00000690| 02 00 04 ff 1f 03 34 06 | 5f 60 61 03 3e 15 5f 03 |......4.|_`a.>._.|
|000006a0| 0c 58 58 58 58 58 58 58 | 58 58 58 58 58 65 60 61 |.XXXXXXX|XXXXXe`a|
|000006b0| 03 48 06 5f 60 61 03 52 | 0a ff 1e 02 00 0c ff 1f |.H._`a.R|........|
|000006c0| 03 5c 2d 5f 03 24 54 48 | 41 54 20 49 53 2c 20 41 |.\-_.$TH|AT IS, A|
|000006d0| 20 42 41 52 20 4d 41 44 | 45 20 4f 46 20 41 20 53 | BAR MAD|E OF A S|
|000006e0| 54 52 49 4e 47 20 4f 46 | 20 58 65 60 61 03 66 25 |TRING OF| Xe`a.f%|
|000006f0| 5f 03 1c 11 4c 45 54 54 | 45 52 53 2c 20 54 57 45 |_...LETT|ERS, TWE|
|00000700| 4c 56 45 20 55 4e 49 54 | 53 20 4c 4f 4e 47 2e 65 |LVE UNIT|S LONG.e|
|00000710| 60 61 03 70 1f 5f 03 16 | 11 48 45 52 45 27 53 20 |`a.p._..|.HERE'S |
|00000720| 54 48 45 20 50 52 4f 47 | 52 41 4d 2e 2e 2e 65 60 |THE PROG|RAM...e`|
|00000730| 61 03 7a 06 7f 0a 81 03 | 84 05 7d 03 03 8e 04 00 |a.z.....|..}.....|
|00000740| 03 98 09 70 04 b8 92 00 | 7b 03 a2 0a ff 1e 02 00 |...p....|{.......|
|00000750| 0e ff 1f 03 ac 20 5f 03 | 17 44 49 4d 20 42 41 52 |..... _.|.DIM BAR|
|00000760| 27 43 48 41 52 41 43 54 | 45 52 24 20 4f 46 20 31 |'CHARACT|ER$ OF 1|
|00000770| 65 60 61 03 b6 13 5f 03 | 0a 50 45 4e 43 4f 4c 4f |e`a..._.|.PENCOLO|
|00000780| 52 20 34 65 60 61 03 c0 | 19 5f 03 10 44 52 41 57 |R 4e`a..|._..DRAW|
|00000790| 27 42 41 52 28 31 32 2c | 22 58 22 29 65 60 61 03 |'BAR(12,|"X")e`a.|
|000007a0| ca 13 5f 03 0a 50 45 4e | 43 4f 4c 4f 52 20 37 65 |.._..PEN|COLOR 7e|
|000007b0| 60 61 03 d4 19 5f 03 10 | 44 52 41 57 27 42 41 52 |`a..._..|DRAW'BAR|
|000007c0| 28 32 30 2c 22 4d 22 29 | 65 60 61 03 de 13 5f 03 |(20,"M")|e`a..._.|
|000007d0| 0a 50 45 4e 43 4f 4c 4f | 52 20 35 65 60 61 03 e8 |.PENCOLO|R 5e`a..|
|000007e0| 19 5f 03 10 44 52 41 57 | 27 42 41 52 28 31 36 2c |._..DRAW|'BAR(16,|
|000007f0| 22 2a 22 29 65 60 61 03 | f2 0b 5f 03 02 2f 2f 65 |"*")e`a.|.._..//e|
|00000800| 60 61 03 fc 2d 5f 03 24 | 50 52 4f 43 20 44 52 41 |`a..-_.$|PROC DRA|
|00000810| 57 27 42 41 52 28 4c 45 | 4e 47 54 48 2c 42 41 52 |W'BAR(LE|NGTH,BAR|
|00000820| 27 43 48 41 52 41 43 54 | 45 52 24 29 65 60 61 04 |'CHARACT|ER$)e`a.|
|00000830| 06 25 5f 03 1c 20 46 4f | 52 20 43 4f 55 4e 54 45 |.%_.. FO|R COUNTE|
|00000840| 52 3a 3d 31 20 54 4f 20 | 4c 45 4e 47 54 48 20 44 |R:=1 TO |LENGTH D|
|00000850| 4f 65 60 61 04 10 20 5f | 03 17 20 20 50 52 49 4e |Oe`a.. _|..  PRIN|
|00000860| 54 20 42 41 52 27 43 48 | 41 54 41 43 54 45 52 24 |T BAR'CH|ATACTER$|
|00000870| 2c 65 60 61 04 1a 10 5f | 03 07 20 45 4e 44 46 4f |,e`a..._|.. ENDFO|
|00000880| 52 65 60 61 04 24 0e 5f | 03 05 50 52 49 4e 54 65 |Re`a.$._|..PRINTe|
|00000890| 60 61 04 2e 10 5f 03 07 | 45 4e 44 50 52 4f 43 65 |`a..._..|ENDPROCe|
|000008a0| 60 61 04 38 06 5f 60 61 | 04 42 0a ff 1e 02 00 0c |`a.8._`a|.B......|
|000008b0| ff 1f 04 4c 1c 5f 03 13 | 52 55 4e 20 54 48 49 53 |...L._..|RUN THIS|
|000008c0| 20 50 52 4f 47 52 41 4d | 2e 2e 2e 65 60 61 04 56 | PROGRAM|...e`a.V|
|000008d0| 06 7f 0f 81 04 60 0a ff | 1e 02 00 04 ff 1f 04 6a |.....`..|.......j|
|000008e0| 10 82 10 43 92 02 00 01 | 84 02 00 0c 85 87 04 74 |...C....|.......t|
|000008f0| 0a 5f 03 01 58 65 66 61 | 04 7e 07 8a 10 29 92 04 |._..Xefa|.~...)..|
|00000900| 88 06 5f 60 61 04 92 0a | ff 1e 02 00 07 ff 1f 04 |.._`a...|........|
|00000910| 9c 10 82 10 74 92 02 00 | 01 84 02 00 14 85 87 04 |....t...|........|
|00000920| a6 0a 5f 03 01 4d 65 66 | 61 04 b0 07 8a 10 5a 92 |.._..Mef|a.....Z.|
|00000930| 04 ba 06 5f 60 61 04 c4 | 0a ff 1e 02 00 05 ff 1f |..._`a..|........|
|00000940| 04 ce 10 82 10 a5 92 02 | 00 01 84 02 00 10 85 87 |........|........|
|00000950| 04 d8 0a 5f 03 01 2a 65 | 66 61 04 e2 07 8a 10 8b |..._..*e|fa......|
|00000960| 92 04 ec 06 5f 60 61 04 | f6 06 7f 0a 81 05 00 05 |...._`a.|........|
|00000970| 7d 04 05 0a 04 00 05 14 | 09 70 05 ee 94 00 7b 05 |}.......|.p....{.|
|00000980| 1e 20 5f 03 17 4c 49 53 | 54 20 54 48 45 20 50 52 |. _..LIS|T THE PR|
|00000990| 4f 47 52 41 4d 20 41 47 | 41 49 4e 2e 65 60 61 05 |OGRAM AG|AIN.e`a.|
|000009a0| 28 06 7f 11 81 05 32 06 | 5f 60 61 05 3c 0a ff 1e |(.....2.|_`a.<...|
|000009b0| 02 00 0e ff 1f 05 46 20 | 5f 03 17 44 49 4d 20 42 |......F |_..DIM B|
|000009c0| 41 52 27 43 48 41 52 41 | 43 54 45 52 24 20 4f 46 |AR'CHARA|CTER$ OF|
|000009d0| 20 31 65 60 61 05 50 13 | 5f 03 0a 50 45 4e 43 4f | 1e`a.P.|_..PENCO|
|000009e0| 4c 4f 52 20 34 65 60 61 | 05 5a 1b 5f 03 12 44 52 |LOR 4e`a|.Z._..DR|
|000009f0| 41 57 27 42 41 52 28 9e | 31 32 2c 22 58 22 9a 29 |AW'BAR(.|12,"X".)|
|00000a00| 65 60 61 05 64 13 5f 03 | 0a 50 45 4e 43 4f 4c 4f |e`a.d._.|.PENCOLO|
|00000a10| 52 20 37 65 60 61 05 6e | 1b 5f 03 12 44 52 41 57 |R 7e`a.n|._..DRAW|
|00000a20| 27 42 41 52 28 9e 32 30 | 2c 22 4d 22 9a 29 65 60 |'BAR(.20|,"M".)e`|
|00000a30| 61 05 78 13 5f 03 0a 50 | 45 4e 43 4f 4c 4f 52 20 |a.x._..P|ENCOLOR |
|00000a40| 35 65 60 61 05 82 1b 5f | 03 12 44 52 41 57 27 42 |5e`a..._|..DRAW'B|
|00000a50| 41 52 28 9e 31 36 2c 22 | 2a 22 9a 29 65 60 61 05 |AR(.16,"|*".)e`a.|
|00000a60| 8c 0b 5f 03 02 2f 2f 65 | 60 61 05 96 2f 5f 03 26 |.._..//e|`a../_.&|
|00000a70| 50 52 4f 43 20 44 52 41 | 57 27 42 41 52 28 1e 4c |PROC DRA|W'BAR(.L|
|00000a80| 45 4e 47 54 48 2c 42 41 | 52 27 43 48 41 52 41 43 |ENGTH,BA|R'CHARAC|
|00000a90| 54 45 52 24 9a 29 65 60 | 61 05 a0 25 5f 03 1c 20 |TER$.)e`|a..%_.. |
|00000aa0| 46 4f 52 20 43 4f 55 4e | 54 45 52 3a 3d 31 20 54 |FOR COUN|TER:=1 T|
|00000ab0| 4f 20 4c 45 4e 47 54 48 | 20 44 4f 65 60 61 05 aa |O LENGTH| DOe`a..|
|00000ac0| 20 5f 03 17 20 20 50 52 | 49 4e 54 20 42 41 52 27 | _..  PR|INT BAR'|
|00000ad0| 43 48 41 54 41 43 54 45 | 52 24 2c 65 60 61 05 b4 |CHATACTE|R$,e`a..|
|00000ae0| 10 5f 03 07 20 45 4e 44 | 46 4f 52 65 60 61 05 be |._.. END|FORe`a..|
|00000af0| 0e 5f 03 05 50 52 49 4e | 54 65 60 61 05 c8 10 5f |._..PRIN|Te`a..._|
|00000b00| 03 07 45 4e 44 50 52 4f | 43 65 60 61 05 d2 06 5f |..ENDPRO|Ce`a..._|
|00000b10| 60 61 05 dc 0a ff 1e 02 | 00 0c ff 1f 05 e6 31 5f |`a......|......1_|
|00000b20| 03 28 1e 4c 45 4e 47 54 | 48 98 20 41 4e 44 20 1e |.(.LENGT|H. AND .|
|00000b30| 42 41 52 27 43 48 41 52 | 41 43 54 45 52 24 98 20 |BAR'CHAR|ACTER$. |
|00000b40| 41 52 45 20 43 41 4c 4c | 45 44 65 60 61 05 f0 30 |ARE CALL|EDe`a..0|
|00000b50| 5f 03 27 11 9c 50 41 52 | 41 4d 45 54 45 52 53 98 |_.'..PAR|AMETERS.|
|00000b60| 2e 20 20 54 48 45 59 20 | 41 43 43 45 50 54 20 9e |.  THEY |ACCEPT .|
|00000b70| 41 52 47 55 4d 45 4e 54 | 53 98 65 60 61 05 fa 20 |ARGUMENT|S.e`a.. |
|00000b80| 5f 03 17 11 46 52 4f 4d | 20 54 48 45 20 4d 41 49 |_...FROM| THE MAI|
|00000b90| 4e 20 50 52 4f 47 52 41 | 4d 2e 65 60 61 06 04 06 |N PROGRA|M.e`a...|
|00000ba0| 7f 0a 81 06 0e 05 7d 05 | 06 18 04 00 06 22 09 70 |......}.|.....".p|
|00000bb0| 06 fd 97 00 7b 06 2c 2b | 5f 03 22 57 45 20 43 41 |....{.,+|_."WE CA|
|00000bc0| 4e 20 55 53 45 20 54 48 | 45 20 53 41 4d 45 20 50 |N USE TH|E SAME P|
|00000bd0| 52 4f 43 45 44 55 52 45 | 20 57 49 54 48 65 60 61 |ROCEDURE| WITHe`a|
|00000be0| 06 36 2b 5f 03 22 11 44 | 49 46 46 45 52 45 4e 54 |.6+_.".D|IFFERENT|
|00000bf0| 20 41 52 47 55 4d 45 4e | 54 53 20 46 52 4f 4d 20 | ARGUMEN|TS FROM |
|00000c00| 54 48 45 20 4d 41 49 4e | 65 60 61 06 40 2e 5f 03 |THE MAIN|e`a.@._.|
|00000c10| 25 11 50 52 4f 47 52 41 | 4d 2e 20 20 4c 45 54 27 |%.PROGRA|M.  LET'|
|00000c20| 53 20 41 44 44 20 4f 4e | 45 20 4d 4f 52 45 20 43 |S ADD ON|E MORE C|
|00000c30| 41 4c 4c 2e 2e 2e 65 60 | 61 06 4a 06 7f 0a 81 06 |ALL...e`|a.J.....|
|00000c40| 54 0a ff 1e 02 00 0e ff | 1f 06 5e 20 5f 03 17 44 |T.......|..^ _..D|
|00000c50| 49 4d 20 42 41 52 27 43 | 48 41 52 41 43 54 45 52 |IM BAR'C|HARACTER|
|00000c60| 24 20 4f 46 20 31 65 60 | 61 06 68 13 5f 03 0a 50 |$ OF 1e`|a.h._..P|
|00000c70| 45 4e 43 4f 4c 4f 52 20 | 34 65 60 61 06 72 1b 5f |ENCOLOR |4e`a.r._|
|00000c80| 03 12 44 52 41 57 27 42 | 41 52 28 9e 31 32 2c 22 |..DRAW'B|AR(.12,"|
|00000c90| 58 22 9a 29 65 60 61 06 | 7c 13 5f 03 0a 50 45 4e |X".)e`a.||._..PEN|
|00000ca0| 43 4f 4c 4f 52 20 37 65 | 60 61 06 86 1b 5f 03 12 |COLOR 7e|`a..._..|
|00000cb0| 44 52 41 57 27 42 41 52 | 28 9e 32 30 2c 22 4d 22 |DRAW'BAR|(.20,"M"|
|00000cc0| 9a 29 65 60 61 06 90 13 | 5f 03 0a 50 45 4e 43 4f |.)e`a...|_..PENCO|
|00000cd0| 4c 4f 52 20 35 65 60 61 | 06 9a 1b 5f 03 12 44 52 |LOR 5e`a|..._..DR|
|00000ce0| 41 57 27 42 41 52 28 9e | 31 36 2c 22 2a 22 9a 29 |AW'BAR(.|16,"*".)|
|00000cf0| 65 60 61 06 a4 1d 5f 03 | 14 1f 44 52 41 57 27 42 |e`a..._.|..DRAW'B|
|00000d00| 41 52 28 9e 33 36 2c 22 | d3 22 1f 29 9a 65 60 61 |AR(.36,"|.".).e`a|
|00000d10| 06 ae 0b 5f 03 02 2f 2f | 65 60 61 06 b8 2f 5f 03 |..._..//|e`a../_.|
|00000d20| 26 50 52 4f 43 20 44 52 | 41 57 27 42 41 52 28 1e |&PROC DR|AW'BAR(.|
|00000d30| 4c 45 4e 47 54 48 2c 42 | 41 52 27 43 48 41 52 41 |LENGTH,B|AR'CHARA|
|00000d40| 43 54 45 52 24 9a 29 65 | 60 61 06 c2 25 5f 03 1c |CTER$.)e|`a..%_..|
|00000d50| 20 46 4f 52 20 43 4f 55 | 4e 54 45 52 3a 3d 31 20 | FOR COU|NTER:=1 |
|00000d60| 54 4f 20 4c 45 4e 47 54 | 48 20 44 4f 65 60 61 06 |TO LENGT|H DOe`a.|
|00000d70| cc 20 5f 03 17 20 20 50 | 52 49 4e 54 20 42 41 52 |. _..  P|RINT BAR|
|00000d80| 27 43 48 41 54 41 43 54 | 45 52 24 2c 65 60 61 06 |'CHATACT|ER$,e`a.|
|00000d90| d6 10 5f 03 07 20 45 4e | 44 46 4f 52 65 60 61 06 |.._.. EN|DFORe`a.|
|00000da0| e0 0e 5f 03 05 50 52 49 | 4e 54 65 60 61 06 ea 10 |.._..PRI|NTe`a...|
|00000db0| 5f 03 07 45 4e 44 50 52 | 4f 43 65 60 61 06 f4 06 |_..ENDPR|OCe`a...|
|00000dc0| 5f 60 61 06 fe 0a ff 1e | 02 00 0c ff 1f 07 08 1f |_`a.....|........|
|00000dd0| 5f 03 16 4e 4f 57 20 52 | 55 4e 20 54 48 45 20 50 |_..NOW R|UN THE P|
|00000de0| 52 4f 47 52 41 4d 2e 2e | 2e 65 60 61 07 12 06 7f |ROGRAM..|.e`a....|
|00000df0| 0f 81 07 1c 0a ff 1e 02 | 00 04 ff 1f 07 26 10 82 |........|.....&..|
|00000e00| 10 61 97 02 00 01 84 02 | 00 0c 85 87 07 30 0a 5f |.a......|.....0._|
|00000e10| 03 01 58 65 66 61 07 3a | 07 8a 10 47 97 07 44 06 |..Xefa.:|...G..D.|
|00000e20| 5f 60 61 07 4e 0a ff 1e | 02 00 07 ff 1f 07 58 10 |_`a.N...|......X.|
|00000e30| 82 10 92 97 02 00 01 84 | 02 00 14 85 87 07 62 0a |........|......b.|
|00000e40| 5f 03 01 4d 65 66 61 07 | 6c 07 8a 10 78 97 07 76 |_..Mefa.|l...x..v|
|00000e50| 06 5f 60 61 07 80 0a ff | 1e 02 00 05 ff 1f 07 8a |._`a....|........|
|00000e60| 10 82 10 c3 97 02 00 01 | 84 02 00 10 85 87 07 94 |........|........|
|00000e70| 0a 5f 03 01 2a 65 66 61 | 07 9e 07 8a 10 a9 97 07 |._..*efa|........|
|00000e80| a8 06 5f 60 61 07 b2 10 | 82 10 ea 97 02 00 01 84 |.._`a...|........|
|00000e90| 02 00 20 85 87 07 bc 0a | 5f 03 01 d3 65 66 61 07 |.. .....|_...efa.|
|00000ea0| c6 07 8a 10 d0 97 07 d0 | 06 5f 60 61 07 da 06 7f |........|._`a....|
|00000eb0| 0a 81 07 e4 05 7d 06 07 | ee 04 00 07 f8 09 70 07 |.....}..|......p.|
|00000ec0| 59 9a 00 7b 08 02 0b 5f | 02 00 0e 4b 65 60 61 08 |Y..{..._|...Ke`a.|
|00000ed0| 0c 0a ff 1e 02 00 07 ff | 1f 08 16 10 5f 03 07 d3 |........|...._...|
|00000ee0| d5 cd cd c1 d2 d9 65 60 | 61 08 20 06 5f 60 61 08 |......e`|a. ._`a.|
|00000ef0| 2a 2f 5f 03 26 31 2e 20 | 20 d0 c1 d2 c1 cd c5 d4 |*/_.&1. | .......|
|00000f00| c5 d2 d3 20 41 52 45 20 | 56 41 52 49 41 42 4c 45 |... ARE |VARIABLE|
|00000f10| 53 20 54 48 41 54 20 41 | 52 45 20 65 60 61 08 34 |S THAT A|RE e`a.4|
|00000f20| 2c 5f 03 23 55 53 45 44 | 20 42 59 20 41 20 50 52 |,_.#USED| BY A PR|
|00000f30| 4f 43 45 44 55 52 45 20 | 41 4e 44 20 49 54 53 20 |OCEDURE |AND ITS |
|00000f40| 43 41 4c 4c 49 4e 47 65 | 60 61 08 3e 11 5f 03 08 |CALLINGe|`a.>._..|
|00000f50| 50 52 4f 47 52 41 4d 2e | 65 60 61 08 48 06 5f 60 |PROGRAM.|e`a.H._`|
|00000f60| 61 08 52 2e 5f 03 25 32 | 2e 20 20 c1 d2 c7 d5 cd |a.R._.%2|.  .....|
|00000f70| c5 ce d4 d3 20 41 52 45 | 20 54 48 45 20 56 41 4c |.... ARE| THE VAL|
|00000f80| 55 45 53 20 46 52 4f 4d | 20 54 48 45 65 60 61 08 |UES FROM| THEe`a.|
|00000f90| 5c 2d 5f 03 24 43 41 4c | 4c 49 4e 47 20 50 52 4f |\-_.$CAL|LING PRO|
|00000fa0| 47 52 41 4d 20 54 48 41 | 54 20 41 52 45 20 45 4e |GRAM THA|T ARE EN|
|00000fb0| 43 4c 4f 53 45 44 20 49 | 4e 65 60 61 08 66 15 5f |CLOSED I|Ne`a.f._|
|00000fc0| 03 0c 50 41 52 45 4e 54 | 48 45 53 45 53 2e 65 60 |..PARENT|HESES.e`|
|00000fd0| 61 08 70 06 5f 60 61 08 | 7a 2b 5f 03 22 33 2e 20 |a.p._`a.|z+_."3. |
|00000fe0| 20 d4 48 45 53 45 20 56 | 41 4c 55 45 53 20 41 52 | .HESE V|ALUES AR|
|00000ff0| 45 20 50 41 53 53 45 44 | 20 54 4f 20 54 48 45 65 |E PASSED| TO THEe|
|00001000| 60 61 08 84 31 5f 03 28 | d0 c1 d2 c1 cd c5 d4 c5 |`a..1_.(|........|
|00001010| d2 d3 20 4f 52 20 56 41 | 52 49 41 42 4c 45 53 20 |.. OR VA|RIABLES |
|00001020| 4f 46 20 54 48 45 20 50 | 52 4f 43 45 44 55 52 45 |OF THE P|ROCEDURE|
|00001030| 65 60 61 08 8e 25 5f 03 | 1c 91 41 4e 44 20 55 53 |e`a..%_.|..AND US|
|00001040| 45 44 20 42 59 20 54 48 | 41 54 20 50 52 4f 43 45 |ED BY TH|AT PROCE|
|00001050| 44 55 52 45 2e 65 60 61 | 08 98 06 5f 60 61 08 a2 |DURE.e`a|..._`a..|
|00001060| 2d 5f 03 24 34 2e 20 20 | c1 20 53 49 4e 47 4c 45 |-_.$4.  |. SINGLE|
|00001070| 20 50 52 4f 43 45 44 55 | 52 45 20 4d 41 59 20 42 | PROCEDU|RE MAY B|
|00001080| 45 20 43 41 4c 4c 45 44 | 65 60 61 08 ac 2d 5f 03 |E CALLED|e`a..-_.|
|00001090| 24 4d 41 4e 59 20 54 49 | 4d 45 53 2c 20 45 41 43 |$MANY TI|MES, EAC|
|000010a0| 48 20 54 49 4d 45 20 57 | 49 54 48 20 44 49 46 46 |H TIME W|ITH DIFF|
|000010b0| 45 52 45 4e 54 65 60 61 | 08 b6 2f 5f 03 26 c1 d2 |ERENTe`a|../_.&..|
|000010c0| c7 d5 cd c5 ce d4 d3 2c | 20 54 4f 20 47 49 56 45 |.......,| TO GIVE|
|000010d0| 20 41 20 44 49 46 46 45 | 52 45 4e 54 20 52 45 53 | A DIFFE|RENT RES|
|000010e0| 55 4c 54 2e 65 60 61 08 | c0 06 7f 0a 81 08 ca 21 |ULT.e`a.|.......!|
|000010f0| 5f 03 18 d4 48 49 53 20 | 43 4f 4e 43 4c 55 44 45 |_...HIS |CONCLUDE|
|00001100| 53 20 4c 45 53 53 4f 4e | 20 31 34 65 60 61 08 d4 |S LESSON| 14e`a..|
|00001110| 05 7d 07 08 de 04 00 08 | e8 09 70 11 ad 9a 00 7b |.}......|..p....{|
|00001120| 08 f2 06 5f 60 61 08 fc | 04 95 09 06 22 b5 03 17 |..._`a..|...."...|
|00001130| 9e 45 4e 54 45 52 20 4c | 49 53 54 20 43 4f 4d 4d |.ENTER L|IST COMM|
|00001140| 41 4e 44 20 2d 2d 3e b7 | 09 08 ba bb 09 10 10 da |AND -->.|........|
|00001150| 06 08 03 04 4c 49 53 54 | 2d 96 71 9a 09 1a 06 5f |....LIST|-.q...._|
|00001160| 60 61 09 24 05 7d 11 09 | 2e 04 00 09 38 09 70 0f |`a.$.}..|....8.p.|
|00001170| ff 9a 00 7b 09 42 06 5f | 60 61 09 4c 04 95 09 56 |...{.B._|`a.L...V|
|00001180| 21 b5 03 16 9e 45 4e 54 | 45 52 20 52 55 4e 20 43 |!....ENT|ER RUN C|
|00001190| 4f 4d 4d 41 4e 44 20 2d | 2d 3e b7 09 08 ba bb 09 |OMMAND -|->......|
|000011a0| 60 0f da 06 08 03 03 52 | 55 4e 2d 96 c5 9a 09 6a |`......R|UN-....j|
|000011b0| 06 5f 60 61 09 74 05 7d | 0f 14 d9 89 00 00 14 14 |._`a.t.}|........|
|000011c0| 8b 00 00 14 06 8d 00 00 | 14 8b 90 00 00 14 c1 92 |........|........|
|000011d0| 00 00 14 f7 94 00 00 14 | 06 98 00 00 12 f3 af 00 |........|........|
|000011e0| 00 14 4d 8a 00 00 14 6a | 8a 00 00 00 00 00 00 00 |..M....j|........|
|000011f0| 00 00 00 00 00 10 e9 af | 00 00 14 f6 8a 00 00 14 |........|........|
|00001200| b6 9a 00 00 10 ee af 00 | 00 14 62 9a 00 00 05 49 |........|..b....I|
|00001210| 4e 54 52 4f 07 50 41 47 | 45 4f 4e 45 07 50 41 47 |NTRO.PAG|EONE.PAG|
|00001220| 45 54 57 4f 09 50 41 47 | 45 54 48 52 45 45 08 50 |ETWO.PAG|ETHREE.P|
|00001230| 41 47 45 46 4f 55 52 08 | 50 41 47 45 46 49 56 45 |AGEFOUR.|PAGEFIVE|
|00001240| 07 53 55 4d 4d 41 52 59 | 01 41 04 50 41 47 45 0a |.SUMMARY|.A.PAGE.|
|00001250| 53 48 49 46 54 27 57 41 | 49 54 04 57 41 49 54 05 |SHIFT'WA|IT.WAIT.|
|00001260| 44 45 4c 41 59 0a 53 48 | 49 46 54 27 46 4c 41 47 |DELAY.SH|IFT'FLAG|
|00001270| 04 4d 45 4e 55 07 47 45 | 54 27 52 55 4e 05 43 4f |.MENU.GE|T'RUN.CO|
|00001280| 55 4e 54 08 47 45 54 27 | 4c 49 53 54 00 00       |UNT.GET'|LIST..  |
+--------+-------------------------+-------------------------+--------+--------+